home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / stats / nonlin31.arj / MINFUEL.NLR < prev    next >
Text File  |  1994-01-24  |  1KB  |  26 lines
  1. /*
  2.  *  Compute how long to fire horizontal thrusters so that the total fuel
  3.  *  consumed is minimized.  The minimum value of the function is the total
  4.  *  amount of fuel that will be used.  The 'time' parameter is the length
  5.  *  of time that the horizontal thruster should be fired (in seconds).
  6.  */
  7. Title "Compute fire time for thruster to minimize total fuel consumption";
  8. Constant G=1.67;    // Gravitational acceleration on moon (meters/sec^2)
  9. Constant A=1.10;    // Acceleration from horizontal thruster (meters/sec^2)
  10. Constant burnrate=2.3;    // Kg/sec fuel burn rate to produce 1 G acceleration
  11. Constant dist=200;    // Horizontal distance to be moved (meters)
  12. Parameter time;        // Number of seconds to fire horizontal thruster
  13. Double hfuel;        // Fuel burned by horizontal thrusters
  14. Double vfuel;        // Fuel burned by vertical thrusters
  15. /*
  16.  *  Compute fuel burned by vertical thruster.
  17.  */
  18. vfuel = time * G * burnrate;
  19. /*
  20.  *  Compute fuel consumed by horizontal thrusters (start and stop).
  21.  */
  22. hfuel = 2 * time * A * burnrate;
  23.  
  24. Function burnrate*(2*time*A/G + 2*time + (dist - A*time^2)/(A*time));
  25. Data;
  26.